﻿Imports System.Data.SqlClient
Public Class DangNhapBUS
    Dim da As DataProvider
    Public Function DangNhap(ByVal tenDN As String, ByVal matKhau As String) As Integer
        Try
            da = New DataProvider()

            Dim Str As String = ""
            Dim sql As String = "select TypeAccount from TAIKHOAN where UserName = '" + tenDN + "' and PassWord = '" + matKhau + "'"
            Str = da.GetData(sql)
            If Str <> "" Then
                MsgBox("Đăng nhập thành công", MsgBoxStyle.OkOnly, "Thông báo")
                Return 1
            Else
                MsgBox("Sai tên đăng nhập hoặc mật khẩu", MsgBoxStyle.Information, "Thông báo")
                Return 0
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information, "Thông báo")
        Finally
            da.CloseConnect()
        End Try
        Return 0
    End Function
End Class
